*****Conscription and Military Service: Do They Result in Future Violent and Non-Violent Incarcerations and Recidivism?  Wang, Flores-Lagunes 2020*****
****This do-file print the results for mean testable implications in Table 7 
clear all

cd "C:\Users\xinto\Dropbox\Vietnam Veteran Paper\Crime Paper\2020 JHR Data\8. Table 7"
set matsize 1000
set more off 

**Violent Crime Incarceration: White
use vc_currentViolent_ygroup1_white1_I2_be, clear
qui bstat using vc_currentViolent_ygroup1_white1_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b

sca currentViolent_white=b[1,31]
sca li currentViolent_white

matrix Vb = e(V)
matrix se = e(se) 

sca se_currentViolent_white=se[1,31] 
sca li se_currentViolent_white


**Violent Crime Incarceration: Nonwhite
use vc_currentViolent_ygroup1_white0_I2_be, clear
qui bstat using vc_currentViolent_ygroup1_white0_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b 

sca currentViolent_nonwhite=b[1,31]
sca li currentViolent_nonwhite

matrix Vb = e(V)
matrix se = e(se)

sca se_currentViolent_nonwhite=se[1,31] 
sca li se_currentViolent_nonwhite



**Nonviolent Crime Incarceration: White and Nonwhite
use vc_nonviolent_new_ygroup1_white_nonwhite_test_I2_be, clear
qui bstat using vc_nonviolent_new_ygroup1_white_nonwhite_test_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b

sca nonviolent_white=b[1,15]
sca li nonviolent_white 

sca nonviolent_nonwhite=b[1,479]
sca li nonviolent_nonwhite 

matrix Vb = e(V)
matrix se = e(se) 

sca se_nonviolent_white=se[1,15]
sca li se_nonviolent_white 

sca se_nonviolent_nonwhite=se[1,479]
sca li se_nonviolent_nonwhite 


**Violent Crime Recidivism: White
use vc_violent_desistence_ygroup1_white1_I2_be, clear
qui bstat using vc_violent_desistence_ygroup1_white1_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b

sca violent_recidivism_white=b[1,31]
sca li violent_recidivism_white

matrix Vb = e(V)
matrix se = e(se) 

sca se_violent_recidivism_white=se[1,31]
sca li se_violent_recidivism_white

**Violent Crime Recidivism: Nonwhite
use vc_violent_desistence_ygroup1_white0_I2_be, clear
qui bstat using vc_violent_desistence_ygroup1_white0_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b

sca violent_recidivism_nonwhite=b[1,31]
sca li violent_recidivism_nonwhite

matrix Vb = e(V)
matrix se = e(se)

sca se_violent_recidivism_nonwhite=se[1,31]
sca li se_violent_recidivism_nonwhite



**Nonviolent Crime Recidivism: White & Nonwhite
use vc_nonviolent_desistance_ygroup1_white_nonwhite_test_I2_be, clear
qui bstat using vc_nonviolent_desistance_ygroup1_white_nonwhite_test_I2_be
set more off

estat bootstrap,per

matrix b = e(b)
mat list b

sca nonviolent_recidivism_white=b[1,15]
sca li nonviolent_recidivism_white 

sca nonviolent_recidivism_nonwhite=b[1,479]
sca li nonviolent_recidivism_nonwhite 

matrix Vb = e(V)
matrix se = e(se)

sca se_nonviolentrecidivism_white=se[1,15]
sca li se_nonviolentrecidivism_white 

sca se_nonviolentrecidivism_nonwhite=se[1,479]
sca li se_nonviolentrecidivism_nonwhite 

















	